home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 13 / CU Amiga Magazine's Super CD-ROM 13 (1997)(EMAP Images)(GB)(Track 1 of 2)[!][issue 1997-08].iso / Index < prev    next >
Text File  |  1997-06-24  |  722b  |  31 lines
  1. ; Searches the CD.index file for a specified string
  2.  
  3. Version >NIL: version 37
  4. if WARN
  5.     echo ""
  6.     echo "You need at least version 2.04 of the operating system to run SearchIndex"
  7.     quit
  8. endif
  9.  
  10. set all `RequestChoice "Index search" "Search this CD or all CUCDs?" "This CD|All CDs|Cancel"`
  11. if $all EQ 0
  12.     quit
  13.     endif
  14.  
  15. set str `:C/RequestString TITLE "Search CD Index" BODY "Please enter the string to search for"`
  16.  
  17. :C/FlashFind :CUCD.index $str >RAM:CUCDindex NOPREFS QUIET
  18. if $all EQ 2
  19.     :C/FlashFind :System/CDsupport/indices/#? $str >>RAM:CUCDindex NOPREFS QUIET
  20.     endif
  21.  
  22. Version >NIL: version 39
  23. if WARN
  24.     AmigaGuide RAM:CUCDindex
  25. else
  26.     MultiView RAM:CUCDindex
  27.     endif
  28.  
  29. delete >NIL: RAM:CUCDindex
  30.  
  31.